home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu453.dms / pu453.adf / extras / basic_sources / kcsnote.bas < prev    next >
BASIC Source File  |  1992-11-08  |  4KB  |  135 lines
  1. SCREEN 1,640,256,4,2
  2. WINDOW 1,"",(0,0)-(621,240),0,1
  3. REM $option Fdf0:c/Readme.exe,Y+
  4. PALETTE 0,.5,.5,.5
  5. PALETTE 1,.5,.5,.5
  6. PALETTE 2,1,1,1
  7. PALETTE 3,.8,.8,.8
  8. PALETTE 4,.3,.3,.3
  9. PALETTE 5,.7,.7,.7
  10. PALETTE 6,.2,.4,.6
  11. PALETTE 7,.6,.4,.2
  12. PALETTE 15,.65,.65,.65
  13. PALETTE 14,.65,.65,.65
  14. PALETTE 13,1,1,1
  15. PALETTE 12,.95,.95,.95
  16. PALETTE 11,.39,.39,.39
  17. PALETTE 10,.9,.9,.9
  18. PALETTE 9,.26,.52,.78
  19. PALETTE 8,.78,.52,.26
  20.  
  21. LOCATE 1,1 : PRINT "@"
  22. FOR x = 1 TO 8
  23.     FOR y = 1 TO 8
  24.         ks = ks + POINT(x,y)
  25.     NEXT y
  26. NEXT x
  27. IF ks = 22 THEN kick = 2 ELSE kick = 1
  28. CLS
  29.     FOR x = 310 TO 0 STEP -20
  30.         y = (x/310)*120
  31.         LINE (x,y)-(620-x,240-y),3,b
  32.         LINE (ox,oy)-(620-ox,240-oy),0,b
  33.         ox = x : oy = y
  34.     NEXT x    
  35. CLS
  36.  
  37. PRINT "                ";
  38. COLOR 2,5
  39. PRINT "KCS Software v4.150 (Amiga + PC Disks)"
  40. COLOR 5,0
  41. PRINT ""
  42. PRINT "                Imported and brought to you by .."
  43. PRINT "                ";
  44. COLOR 7,5
  45. PRINT "David Alan Caruana"
  46. COLOR 5,0
  47. PRINT ""
  48. PRINT "                KCS Power-PC-Board users please contact me :"
  49. PRINT "                `Blossom`,Acacia Str., San Gwann SGN03, MALTA"
  50. PRINT ""
  51. PRINT "                ";
  52. COLOR 6,5
  53. PRINT                 "Important info :"
  54. COLOR 5,0
  55. PRINT "                RAmiga + [P]             : Pause"
  56. PRINT "                RAmiga + [(]/[)] keypad  : Flicker Fixer"
  57. PRINT "                RAmiga + [+]/[-] keypad  : CPU Speed"
  58. PRINT "                RAmiga + [8]/[2] keypad  : Herc40 / Herc80"
  59. PRINT "                RAmiga + [4]/[6] keypad  : Scroll Herc40"
  60. PRINT "                RAmiga + [*]     keypad  : Max CPU Speed"
  61. PRINT "                RAmiga + [Help]          : Menu"
  62. PRINT ""
  63. PRINT "                New features in this version : "
  64. PRINT "                ALL VGA/MCGA/EGA/CGA/Hercules/Tandy modes supported"
  65. PRINT "                (MCGA is emulated in 16-greyscale)"
  66. PRINT "                A590 SCSI driver (finally) debugged !!"
  67. PRINT "                EMS / XMS support (.SYS drivers included)"
  68. PRINT "                Better sound emulation"
  69. PRINT "                Full 16-colors in textmode + hires (50 lines)"
  70. PRINT "                (AT-Once users .. eat your socks !!)"
  71. PRINT "                Scrolling 40-chars hercules textmode"
  72. PRINT "                Installable on harddisk + supports most HD`s"
  73. PRINT "                + much more stable PC operation !!"
  74. PRINT ""
  75. PRINT "                ";
  76. COLOR 3,4
  77. PRINT "Click mouse to get outtahere .. tata from David"
  78. COLOR 5,0
  79. LOCATE 29,70 : COLOR 5 : PRINT "-=";:COLOR 4:PRINT "DAC";:COLOR 5:PRINT "=-";
  80.  
  81. retry:
  82. WHILE MOUSE(0)<>0:WEND
  83. n = 12
  84. DIM dt(n,6)
  85. ck = 0
  86. WHILE MOUSE(0) = 0 
  87.     x = MOUSE(1) 
  88.     y = MOUSE(2)
  89.     
  90.     theta = theta + (0.03)
  91.     theta2 = theta2 + (0.02)
  92.     theta3 = theta3 + (0.021)
  93.     s = SIN(theta) : c = COS(theta+0.3)
  94.     s1= SIN(theta2+0.4) : c1 = COS(theta2+1.2)
  95.     s2= SIN(theta3+1.4) : c2 = COS(theta3+0.2)
  96.     s = s ^ 2 : c = c ^ 2
  97.     s1 = s1 ^ 2 : c1 = c1 ^ 2
  98.     s = s * 620 : c = c * 240
  99.     s1 = s1 * 620 : c1 = c1 * 240
  100.     s2 = s2 ^ 2 : c2 = c2 ^ 2
  101.     s2= s2 * 620 : c2 = c2 * 240
  102.  
  103.     COLOR 1,0,3 
  104.     LINE (s,c)-(s1,c1)
  105.     LINE (s2,c2)-(s1,c1)
  106.     LINE (s,c)-(s2,c2)
  107.     
  108.     IF dt(ck,1)<>0 OR dt(ck,3)<>0 THEN
  109.         LINE (dt(ck,1),dt(ck,3))-(dt(ck,2),dt(ck,4))
  110.         LINE (dt(ck,5),dt(ck,6))-(dt(ck,2),dt(ck,4))
  111.         LINE (dt(ck,1),dt(ck,3))-(dt(ck,5),dt(ck,6))
  112.     END IF
  113.     dt(ck,1) = s
  114.     dt(ck,2) = s1
  115.     dt(ck,3) = c
  116.     dt(ck,4) = c1
  117.     dt(ck,5) = s2
  118.     dt(ck,6) = c2
  119.     
  120.         
  121.     ck = (ck+1) MOD n
  122. WEND
  123.  
  124. SYSTEM
  125.     
  126. SUB dbox(x1,y1,x2,y2) STATIC
  127.     LINE (x1,y1)-(x1,y2),5
  128.     LINE (x1+1,y1)-(x1+1,y2),5
  129.     LINE (x1,y1)-(x2,y1),5
  130.     LINE (x2,y2)-(x2,y1),4
  131.     LINE (x2+1,y2)-(x2+1,y1),4
  132.     LINE (x2,y2)-(x1,y2),4
  133. END SUB
  134.  
  135.